home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / biz / dopus / compare_module.lha / compare_module / Install < prev   
Encoding:
Text File  |  1996-10-04  |  3.4 KB  |  100 lines
  1. ; $VER: compare.module_Install 1.0 (4.10.96)
  2. ; Installer script by Leo Davidson.
  3.  
  4. ;*****************************************************************************
  5.  
  6. ;- Welcome -------------------------------------------------------------------
  7.  
  8. (welcome "compare.module")
  9.  
  10. ;- Introductory message ------------------------------------------------------
  11.  
  12. (message "This installer will install compare.module "
  13.          "for you.\n\n "
  14.          "You must already have Directory Opus 5.5 "
  15.          "correctly installed on your harddisk. ")
  16.  
  17. ;- Set where to do the install to --------------------------------------------
  18.  
  19. (set #target "DOpus5:")
  20. (set @default-dest #target)
  21.  
  22. (if (NOT (exists "DOpus5:" (noreq)))
  23.     (abort "DOpus 5.5 is not correctly installed.\n\n"
  24.            "The \"DOpus5:\" assign could not be found.")
  25. )
  26.  
  27. ;- 1) Install compare.module and guide ---------------------------------------
  28.  
  29. (copylib (prompt "\"compare.module\" will be copied to "
  30.                  "\"DOpus5:modules\" unless a newer version "
  31.                  "already exists.")
  32.          (help @copylib-help)
  33.          (confirm)
  34.          (source "compare.module")
  35.          (dest "DOpus5:modules")
  36.          (infos)
  37.          (optional force)
  38. )
  39.  
  40. ; The guide has a version string and so can be copied with Copylib.
  41.  
  42. (copylib (prompt "\"compare.module.guide\" will be copied to "
  43.                  "\"DOpus5:help\" unless a newer version "
  44.                  "already exists.")
  45.          (help @copylib-help)
  46.          (confirm)
  47.          (source "compare.module.guide")
  48.          (dest "DOpus5:help")
  49.          (infos)
  50.          (optional force)
  51. )
  52.  
  53. ;- 2) Install optional example button-bank -----------------------------------
  54.  
  55. (if (askbool (prompt "Would you like to install a button bank "
  56.                      "with an example compare button which you "
  57.                      "can drag'n'drop into your existing setup?")
  58.              (help "Installing it won't hurt, but you don't "
  59.                    "have to.")
  60.              (default 1)
  61.              (choices "Yes Please" "No Thanks")
  62.     )
  63.     (
  64.        (copyfiles (source "compare-examples")
  65.                   (dest "DOpus5:Buttons")
  66.                   (optional force))
  67.        (message "The example button bank has been installed.\n\n"
  68.                 "To open it, open a DOpus lister and go to "
  69.                 "\"DOpus5:Buttons\" and double-click on the "
  70.                 "file called \"compare-examples\".")
  71.     )
  72. )
  73.  
  74. ;- Misc Messages -------------------------------------------------------------
  75.  
  76. (message "If you are willing to translate compare "
  77.          "into another language you can find the "
  78.          "translation files in the archive.\n\n"
  79.          "Currently only the built-in English strings "
  80.          "are available.")
  81.  
  82. (message "Please note that if you have installed "
  83.          "MWB_DOpus 8 (which came with Opus 5.5) "
  84.          "you will have a very nice toolbar icon "
  85.          "to use for your compare button:\n\n"
  86.          "\"Scales.small\" (and \"Scales.small.info\")")
  87.  
  88. ;- All Done ------------------------------------------------------------------
  89.  
  90. (exit "compare.module is now installed.\n\n"
  91.       "Please take the time to read through the "
  92.       "\"compare.module.guide\" file in "
  93.       "\"DOpus5:Help\".\n\n"
  94.       "If it doesn't work immediately, you may "
  95.       "need to reboot or restart DOpus5.5 for the "
  96.       "new module to be available."
  97.       (quiet))
  98.  
  99. ;- That's All Folks ----------------------------------------------------------
  100.